home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / fatboysintro2.lha / SCROLLER7.S
Encoding:
Text File  |  1999-09-27  |  5.5 KB  |  264 lines
  1.  
  2.  move.l    $04,a6
  3.  lea    gfxname,a1
  4.  jsr    -408(a6)
  5.  move.l    d0,gfxbase
  6.  move.l    d0,a0
  7.  move.l    50(a0),oldclist
  8.  move.l    #newclist,50(a0)
  9.  move.l    gfxbase,a6
  10.  lea    bitmap,a0
  11.  move.l    #$01,d0
  12.  move.l    #336,d1
  13.  move.l    #200,d2
  14.  jsr    -390(a6)
  15.  move.l    #$60000,plane1
  16.  lea    rastport,a1
  17.  jsr    -198(a6)
  18.  move.l    #bitmap,r_bitmap
  19.  lea    rastport,a1
  20.  jsr    -48(a6)
  21.  move.l    #scrollm,zeiger
  22.  lea     rastport,a1
  23.  move.l  #90,d0
  24.  move.l  #50,d1
  25.  jsr     -240(a6)
  26.  lea     rastport,a1
  27.  move.l  zeiger,a0
  28.  move.l  #$10,d0
  29.  jsr     -60(a6)
  30.  lea     rastport,a1
  31.  move.l  #90,d0
  32.  move.l  #100,d1
  33.  jsr     -240(a6)
  34.  lea     rastport,a1
  35.  move.l  zeiger,a0
  36.  move.l  #$10,d0
  37.  jsr     -60(a6)
  38.  lea     rastport,a1
  39.  move.l  #90,d0
  40.  move.l  #150,d1
  41.  jsr     -240(a6)
  42.  lea     rastport,a1
  43.  move.l  zeiger,a0
  44.  move.l  #$10,d0
  45.  jsr     -60(a6)
  46.  move.l    $6c,oldirq+2
  47.  move.l    #newirq,$6c
  48.  wait:
  49.  btst    #6,$bfe001
  50.  bne.s    wait
  51.  move.l    oldirq+2,$6c
  52.  move.l    gfxbase,a0
  53.  move.l    oldclist,50(a0)
  54.  move.l    $04,a6
  55.  move.l    gfxbase,a1
  56.  jsr    -414(a6)
  57.  rts
  58.  
  59.  newirq:
  60.  movem.l    d0-d7/a0-a6,-(sp)
  61.  move.l    gfxbase,a6
  62.  lea    rastport,a1
  63.  move.l    #$01,d0
  64.  clr.l    d1
  65.  clr.l    d2
  66.  move.l    #192,d3
  67.  move.l    #320,d4
  68.  move.l    #200,d5
  69.  jsr    -396(a6)
  70.  lea    rastport,a1
  71.  move.l    #$01,d0
  72.  clr.l    d1
  73.  move.l  #10,d2
  74.  move.l    #192,d3
  75.  move.l    #336,d4
  76.  move.l    #200,d5
  77.  jsr    -396(a6)
  78.  lea    rastport,a1
  79.  move.l    #$00,d0
  80.  move.l  #$01,d1
  81.  clr.l    d2
  82.  move.l    #10,d3
  83.  move.l    #10,d4
  84.  move.l    #200,d5
  85.  jsr    -396(a6)
  86.  lea    rastport,a1
  87.  move.l    #$01,d0
  88.  move.l  #$00,d1
  89.  move.l  #300,d2
  90.  move.l    #180,d3
  91.  move.l    #336,d4
  92.  move.l    #190,d5
  93.  jsr    -396(a6)
  94.  lea    rastport,a1
  95.  move.l    #$00,d0
  96.  move.l  #$01,d1
  97.  move.l  #310,d2
  98.  move.l    #00,d3
  99.  move.l    #320,d4
  100.  move.l    #190,d5
  101.  jsr    -396(a6)
  102.  lea    rastport,a1
  103.  move.l    #$01,d0
  104.  move.l  #$00,d1
  105.  move.l  #00,d2
  106.  move.l    #00,d3
  107.  move.l    #320,d4
  108.  move.l    #10,d5
  109.  jsr    -396(a6)
  110.  lea    rastport,a1
  111.  move.l    #$01,d0
  112.  move.l  #$00,d1
  113.  move.l  #00,d2
  114.  move.l    #00,d3
  115.  move.l    #310,d4
  116.  move.l    #10,d5
  117.  jsr    -396(a6)
  118.  lea    rastport,a1
  119.  move.l    #$01,d0
  120.  move.l  #$00,d1
  121.  move.l  #00,d2
  122.  move.l    #10,d3
  123.  move.l    #10,d4
  124.  move.l    #20,d5
  125.  jsr    -396(a6)
  126.  sub.b    #$01,rows
  127.  bne.s    exit
  128.  move.b    #$08,rows
  129.  lea    rastport,a1
  130.  move.l    #320,d0
  131.  move.l    #198,d1
  132.  jsr    -240(a6)
  133.  lea    rastport,a1
  134.  move.l    zeiger,a0
  135.  move.l    #$01,d0
  136.  jsr    -60(a6)
  137.  lea    rastport,a1
  138.  move.l    #321,d0
  139.  move.l    #188,d1
  140.  jsr    -240(a6)
  141.  lea    rastport,a1
  142.  move.l    zeiger,a0
  143.  move.l    #$01,d0
  144.  jsr    -60(a6)
  145.  addq.l    #$01,zeiger
  146.  cmp.l    #end,zeiger
  147.  blt.s    exit
  148.  move.l    #scrollm,zeiger
  149.  exit:
  150.  movem.l    (sp)+,d0-d7/a0-a6
  151.  oldirq:
  152.  jmp    $00000000
  153.  section copper,code_C
  154.  newclist:
  155.  dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  156.  dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  157.  dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  158.  dc.w    $00e0,$0006,$00e2,$0000
  159.  dc.w    $2209,$fffe,$0180,$0030
  160.  dc.w    $2309,$fffe,$0180,$0060
  161.  dc.w    $2409,$fffe,$0180,$0090
  162.  dc.w    $2509,$fffe,$0180,$00c0
  163.  dc.w    $2609,$fffe,$0180,$00f0
  164.  dc.w    $2709,$fffe,$0180,$00f0
  165.  dc.w    $2809,$fffe,$0180,$00c0
  166.  dc.w    $2909,$fffe,$0180,$0090
  167.  dc.w    $2a09,$fffe,$0180,$0060
  168.  dc.w    $2b09,$fffe,$0180,$0030
  169.  dc.w    $2c09,$fffe,$0180,$0000
  170.  dc.w    $2c09,$fffe,$0182,$0f00
  171.  dc.w    $3009,$fffe,$0182,$0f30
  172.  dc.w    $4009,$fffe,$0182,$0f60
  173.  dc.w    $5009,$fffe,$0182,$0f90
  174.  
  175.  dc.w    $5509,$fffe,$0180,$0003
  176.   dc.w    $5609,$fffe,$0180,$0006
  177.  dc.w    $5709,$fffe,$0180,$0009
  178.  dc.w    $5809,$fffe,$0180,$000c
  179.  dc.w    $5909,$fffe,$0180,$000f
  180.  dc.w    $5a09,$fffe,$0180,$003f
  181.  dc.w    $5b09,$fffe,$0180,$004f
  182.  dc.w    $5c09,$fffe,$0180,$003f
  183.  dc.w    $5d09,$fffe,$0180,$000f
  184.  dc.w    $5e09,$fffe,$0180,$000c
  185.  dc.w    $5f09,$fffe,$0180,$0009
  186.  dc.w    $6009,$fffe,$0180,$0006
  187.  dc.w    $6109,$fffe,$0180,$0003
  188.  dc.w    $6209,$fffe,$0180,$0000
  189.  dc.w    $6009,$fffe,$0182,$0fc0
  190.  dc.w    $7009,$fffe,$0182,$0ff0
  191.  dc.w    $8009,$fffe,$0182,$0cf0
  192.  dc.w    $8709,$fffe,$0180,$0003
  193.  dc.w    $8809,$fffe,$0180,$0006
  194.  dc.w    $8909,$fffe,$0180,$0009
  195.  dc.w    $8a09,$fffe,$0180,$000c
  196.  dc.w    $8b09,$fffe,$0180,$000f
  197.  dc.w    $8c09,$fffe,$0180,$003f
  198.  dc.w    $8d09,$fffe,$0180,$004f
  199.  dc.w    $8e09,$fffe,$0180,$003f
  200.  dc.w    $8f09,$fffe,$0180,$000f
  201.  dc.w    $9009,$fffe,$0180,$000c
  202.  dc.w    $9009,$fffe,$0182,$0cf0
  203.  dc.w    $9109,$fffe,$0180,$0009
  204.  dc.w    $9209,$fffe,$0180,$0006
  205.  dc.w    $9309,$fffe,$0180,$0003
  206.  dc.w    $9409,$fffe,$0180,$0000
  207.  dc.w    $a009,$fffe,$0182,$09f0
  208.  dc.w    $b809,$fffe,$0182,$06f0
  209.  dc.w    $b909,$fffe,$0180,$0003
  210.  dc.w    $ba09,$fffe,$0180,$0006
  211.  dc.w    $bb09,$fffe,$0180,$0009
  212.  dc.w    $bc09,$fffe,$0180,$000c
  213.  dc.w    $bd09,$fffe,$0180,$000f
  214.  dc.w    $be09,$fffe,$0180,$003f
  215.  dc.w    $bf09,$fffe,$0180,$004f
  216.  dc.w    $c009,$fffe,$0180,$003f
  217.  dc.w    $c009,$fffe,$0182,$03f0
  218.  dc.w    $c109,$fffe,$0180,$000f
  219.  dc.w    $c209,$fffe,$0180,$000c
  220.  dc.w    $c309,$fffe,$0180,$0009
  221.  dc.w    $c409,$fffe,$0180,$0006
  222.  dc.w    $c509,$fffe,$0180,$0003
  223.  dc.w    $c609,$fffe,$0180,$0000
  224.  
  225.  dc.w    $d009,$fffe,$0182,$00c0
  226.  dc.w    $e009,$fffe,$0182,$0090
  227.  dc.w    $f509,$fffe,$0180,$0000
  228.  dc.w    $f609,$fffe,$0180,$0300
  229.  dc.w    $f709,$fffe,$0180,$0600
  230.  dc.w    $f809,$fffe,$0180,$0900
  231.  dc.w    $f909,$fffe,$0180,$0c00
  232.  dc.w    $fa09,$fffe,$0180,$0f33
  233.  dc.w    $fb09,$fffe,$0180,$0c00
  234.  dc.w    $fc09,$fffe,$0180,$0900
  235.  dc.w    $fd09,$fffe,$0180,$0600
  236.  dc.w    $fe09,$fffe,$0180,$0300
  237.  dc.w    $ff09,$fffe,$0180,$0000
  238.  dc.w    $ffff,$fffe
  239.  scrollm:
  240.  dc.b    "THE FATBOYS PRESENTING NEW STUFF IN THE YEAR 1990"
  241.  dc.b    " WITH A BRAND NEW DEMO....."
  242.  dc.b    "GREETINGS TO ALL OR FREND OVER THE WORLD......."
  243.  end:
  244.  even
  245.  zeiger:
  246.  dc.l    0
  247.  oldclist:
  248.  dc.l    0
  249.  gfxbase:
  250.  dc.l    0
  251.  gfxname:
  252.  dc.b    "graphics.library",0
  253.  even
  254.  bitmap:
  255.  dcb.w    4,0
  256.  plane1:
  257.  dcb.l    20,0
  258.  rastport:
  259.  dc.l    0
  260.  r_bitmap:
  261.  dcb.l    30,0
  262.  rows:
  263.  dc.b    2
  264.